home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 July / 64er_Magazin_85-07_1985_Markt__Technik_de.d64 / ieee basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  183 lines
  1. 10 poke56,96:poke55,0:clr
  2. 15 of=32768
  3. 20 print"[147]kopieren der rom-daten nach $6000":print
  4. 30 fori=6*4096to8*4096-1:pokei,peek(i+of):nexti
  5. 40 rem einschaltfarben setzen
  6. 50 poke58677-of,5: rem zeichen gruen
  7. 60 poke60633-of,0: rem rahmen schwarz
  8. 70 poke60634-of,0: rem hintergr. schwarz
  9. 80 print"lesen der data-zeilen":print:print
  10. 100 t=0
  11. 110 t=t+1:read a:ifa=0then240
  12. 120 read b: rem anzahl der bytes
  13. 130 read p1: rem pruefsumme
  14. 140 p2=0:print"block ";t;"  ";
  15. 150 fori=a-oftoa-of-1+b
  16. 160 readd:pokei,d:p2=p2+d
  17. 170 nexti
  18. 180 ifp2<>p1then210
  19. 190 print"   ok"
  20. 200 goto110
  21. 210 print"pruefsumme falsch: ";p2;" statt ";p1:print
  22. 220 geta$:ifa$=""then220
  23. 230 goto110
  24. 240 print:print"fertig!":end
  25. 1000 rem *****************
  26. 1005 rem **** block 1 ****
  27. 1010 rem *****************
  28. 1020 data 57817,2,170
  29. 1025 data 162,8
  30. 1030 rem *****************
  31. 1035 rem **** block 2 ****
  32. 1040 rem *****************
  33. 1050 data 57895,2,170
  34. 1055 data 162,8
  35. 1060 rem *****************
  36. 1065 rem **** block 3 ****
  37. 1070 rem *****************
  38. 1080 data 58858,3,529
  39. 1081 data76,202,251
  40. 1090 rem *****************
  41. 1095 rem **** block 4 ****
  42. 1100 rem *****************
  43. 1110 data 60686,3,390
  44. 1111 data76,64,250
  45. 1120 rem *****************
  46. 1125 rem **** block 5 ****
  47. 1130 rem *****************
  48. 1140 data 60576,1,130
  49. 1141 data 130
  50. 1150 rem *****************
  51. 1155 rem **** block 6 ****
  52. 1160 rem *****************
  53. 1170 data 60859,91,11666
  54. 1171 data76,67,251,76,28,251,41,247,141,0,221,96,133,149,76,39,251,120,32
  55. 1172 data160,238,32,190,237,32,133,238,32,169,238,48,251,88,96,36,148,48,5
  56. 1173 data56,102,148,208,5,72,32,239,250,104,133,149,24,96,234,76,250,250,173
  57. 1174 data0,221,9,8,141,0,221,169,95,44,169,63,76,6,251,32,190,237,138,162
  58. 1175 data10,202,208,253,170,32,133,238,76,151,238,76,81,251
  59. 1180 rem *****************
  60. 1185 rem **** block 7 ****
  61. 1190 rem *****************
  62. 1200 data 62637,11,1586
  63. 1201 data201,4,176,7,169,8,133,186,234,234,234
  64. 1210 rem *****************
  65. 1225 rem **** block 8 ****
  66. 1230 rem *****************
  67. 1240 data 62959,11,1586
  68. 1241 data201,4,176,7,169,8,133,186,234,234,234
  69. 1250 rem *****************
  70. 1255 rem **** block 9 ****
  71. 1260 rem *****************
  72. 1270 data 62999,3,296
  73. 1272 data32,12,252
  74. 1280 rem ******************
  75. 1285 rem **** block 10 ****
  76. 1290 rem ******************
  77. 1300 data 64064,192,22379
  78. 1301 data32,21,252,48,6,32,164,240,76,17,237,72,36,148,16,10,56,102,163,32
  79. 1302 data110,250,70,148,70,163,104,133,149,169,86,141,2,222,169,4,44,2,222
  80. 1303 data240,251,169,60,141,3,222,169,86,36,163,16,2,169,87,141,2,222,173
  81. 1304 data2,222,41,80,201,80,240,86,169,48,141,1,222,169,255,141,0,222,169
  82. 1305 data52,141,1,222,165,149,73,255,141,0,222,169,16,44,2,222,240,249,169
  83. 1306 data8,13,2,222,141,2,222,169,255,141,7,221,169,25,141,15,221,169,0,141
  84. 1307 data7,221,173,7,221,240,17,44,2,222,80,246,169,86,141,2,222,169,255,141
  85. 1308 data0,222,24,96,44,133,2,16,10,32,225,255,208,209,240,3,169,128,44,169
  86. 1309 data3,32,28,254,88,24,144,220,133,149,32,110,250,169,52,141,3,222,96
  87. 1310 data32,21,252,48,3,76,64,237,76,110,250,32,21,252,48,18,120
  88. 1320 rem ******************
  89. 1325 rem **** block 11 ****
  90. 1330 rem ******************
  91. 1340 data 64256,256,31864
  92. 1341 data32,142,238,76,243,237,32,21,252,48,9,32,17,237,76,3,238,169,95,44
  93. 1342 data169,63,32,75,250,76,233,250,32,21,252,48,248,173,0,221,76,193,237
  94. 1343 data32,21,252,48,6,32,54,237,76,204,237,133,149,32,110,250,169,246,141
  95. 1344 data2,222,169,52,141,3,222,24,96,32,21,252,48,6,32,54,237,76,190,237
  96. 1345 data76,228,250,32,21,252,48,6,120,169,0,76,22,238,169,48,141,1,222,169
  97. 1346 data0,141,0,222,169,60,141,1,222,169,214,141,2,222,169,255,141,7,221
  98. 1347 data169,25,141,15,221,169,0,141,7,221,173,7,221,240,50,169,4,44,2,222
  99. 1348 data208,244,169,246,141,2,222,173,2,222,74,74,176,5,169,64,32,28,254
  100. 1349 data173,0,222,73,255,72,169,118,141,2,222,169,4,44,2,222,240,251,169
  101. 1350 data246,141,2,222,104,24,96,44,133,2,16,5,32,237,246,208,176,169,2,32
  102. 1351 data28,254,169,13,72,208,228,201,131,208,3,76,238,229,201,130,208,6,32
  103. 1352 data44,247,76,254,229,76,254,229,70,148,162,56,142,1,222,162,48,142,3
  104. 1353 data222,169,169,141,2,222,169,255,141,0,222,162,52,142,1,222,162,52,142
  105. 1354 data3,222,141,0
  106. 1360 rem ******************
  107. 1365 rem **** block 12 ****
  108. 1370 rem ******************
  109. 1380 data 64512,40,5057
  110. 1381 data222,169,86,141,2,222,173,0,222,76,142,238,165,194,133,173,165,193
  111. 1382 data133,172,96,72,165,186,41,15,197,2,208,5,104,44,29,252,96,104,44,28
  112. 1383 data252,96
  113. 1390 rem ******************
  114. 1395 rem **** block 13 ****
  115. 1400 rem ******************
  116. 1410 data 64999,9,1113
  117. 1411 data169,4,133,2,169,64,76,243,253
  118. 1420 rem ******************
  119. 1425 rem **** block 14 ****
  120. 1430 rem ******************
  121. 1440 data 65405,3,549
  122. 1441 data76,222,251
  123. 1450 rem *******************************
  124. 1460 rem *******************************
  125. 1470 rem wenn ohne dos 5.1, dann nur
  126. 1480 rem noch zeile 10000 eingeben!!
  127. 1490 rem *******************************
  128. 1500 rem *******************************
  129. 1520 rem ******************
  130. 1525 rem **** block 15 ****
  131. 1530 rem ******************
  132. 1540 data 63276,212,27895
  133. 1541 data76,105,247,248,248,248,248,248,249,247,247,247,249,248,169,169,169
  134. 1542 data169,169,0,207,207,207,6,243,37,47,173,94,174,95,62,177,64,35,81,0
  135. 1543 data13,68,79,83,32,86,53,46,49,32,65,75,84,73,86,73,69,82,84,13,0,76
  136. 1544 data123,247,162,2,189,102,247,149,124,202,16,248,169,8,141,145,3,76,211
  137. 1545 data249,133,166,134,167,186,189,1,1,201,230,240,4,201,140,208,23,189
  138. 1546 data2,1,201,167,240,4,201,164,208,12,165,166,162,8,221,69,247,240,17
  139. 1547 data202,16,248,165,166,166,167,201,58,176,3,76,128,0,76,138,0,134,165
  140. 1548 data141,148,3,32,43,249,166,165,169,62,133,187,169,3,133,188,173,145
  141. 1549 data3,133,186,189,47,247,72,189,58,247,72,96,152,240,69,162,9,189,69
  142. 1550 data247,240,8,205,62,3,240,13,232,16,243,173,62,3,201,36,240,81,76,249
  143. 1551 data247,198,183,169,64,133,187,169,3,133,188,76,199,247,165,186,32,177
  144. 1552 data255,169,111
  145. 1560 rem ******************
  146. 1565 rem **** block 16 ****
  147. 1570 rem ******************
  148. 1580 data 63488,256,34255
  149. 1581 data133,185,32,147,255,160,0,185,62,3,32,168,255,200,196,183,144,245
  150. 1582 data32,174,255,76,55,248,165,186,32,180,255,169,111,133,185,32,150,255
  151. 1583 data32,165,255,201,13,240,6,32,22,231,76,36,248,32,22,231,32,171,255
  152. 1584 data76,121,0,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32
  153. 1585 data150,255,169,0,133,144,160,3,132,183,32,165,255,133,195,32,165,255
  154. 1586 data133,196,164,144,208,62,164,183,136,208,235,166,195,165,196,32,205
  155. 1587 data189,169,32,32,22,231,32,165,255,166,144,208,38,201,0,240,24,32,22
  156. 1588 data231,32,225,255,240,26,32,228,255,240,232,201,32,208,228,32,228,255
  157. 1589 data240,251,208,221,169,13,32,22,231,160,2,76,81,248,32,66,246,169,13
  158. 1590 data32,22,231,76,121,0,166,43,164,44,173,148,3,201,37,208,3,169,1,44
  159. 1591 data169,0,133,185,169,0,32,213,255,176,46,173,148,3,201,37,240,25,165
  160. 1592 data175,133,46,165,174,133,45,32,89,166,32,51,165,173,148,3,201,173,240
  161. 1593 data4,201,47,208,3,76,134,227,169,0,32,144,255,32,142,166,76,174,167
  162. 1594 data76,134,227,162,2,189,171,227,149,124,202,16,248,76,134
  163. 1600 rem ******************
  164. 1605 rem **** block 17 ****
  165. 1610 rem ******************
  166. 1620 data 63744,256,30574
  167. 1621 data227,32,89,225,76,24,248,164,183,185,62,3,41,15,141,145,3,136,240
  168. 1622 data20,185,62,3,41,15,168,240,12,173,145,3,24,105,10,136,208,251,141
  169. 1623 data145,3,76,121,0,160,0,32,115,0,170,208,3,76,194,249,169,96,133,124
  170. 1624 data165,122,72,165,123,72,138,201,34,240,30,32,115,0,208,247,104,133
  171. 1625 data123,104,133,122,32,121,0,162,0,201,34,240,14,162,2,228,123,208,92
  172. 1626 data162,0,240,9,104,104,162,0,32,115,0,240,86,201,34,240,82,201,61,240
  173. 1627 data4,201,58,208,2,162,255,201,91,240,10,153,62,3,141,147,3,232,200,16
  174. 1628 data223,32,115,0,240,46,141,146,3,32,115,0,240,38,201,93,208,34,224,16
  175. 1629 data176,30,173,147,3,201,42,208,5,136,202,169,63,44,169,32,224,15,176
  176. 1630 data7,153,62,3,200,232,16,245,173,146,3,208,195,162,76,134,124,76,8,175
  177. 1631 data132,183,162,76,134,124,32,121,0,240,5,32,115,0,208,251,96,162,0,189
  178. 1632 data81,247,240,6,32,22,231,232,208,245,96,0,133,146,228,215,208,15,138
  179. 1633 data208,160,165,169,48,189,201,16,144,185,133,150,176,181,138,69,155
  180. 1634 data133,155,165,180,240,210
  181. 10000 data0
  182. 10010 rem ****** ende ******
  183.